Barcodes

Create 1D and 2D barcodes with R


qrcode

install.packages("qrcode")
library(qrcode)

dblogr

mp <- qr_code("derekmichaelwright.github.io/dblogr", ecl = "M")
mp <- add_logo(mp, "logo_dblogr.png", ecl = "L", hjust = "r", vjust = "b")
generate_svg(mp, "QR_dblogr.svg")
# Convert to png
rsvg::rsvg_png("QR_dblogr.svg", "QR_dblogr.png", width = 512, height = 512)


Knowpulse

mp <- qr_code("knowpulse.usask.ca", ecl = "M")
mp <- add_logo(mp, "logo_knowpulse.png", ecl = "L", hjust = "r", vjust = "b")
generate_svg(mp, "QR_knowpulse.svg")
# Convert to png
rsvg::rsvg_png("QR_knowpulse.svg", "QR_knowpulse.png", width = 512, height = 512)


baRcodeR

install.packages("baRcodeR")
library(baRcodeR)
# 
myLabels <- data.frame(
  Expt = "Sutherland 2024",
  Entry = paste("Entry", stringr::str_pad(1:60, width = 3, pad = "0")),
  Plot = 1001:1060)

2D - QR Codes

custom_create_PDF(name = "myLabes_QRCodes",
                  Labels = myLabels$Plot,
                  alt_text = paste0("Plot:", myLabels$Plot,
                                    "\n", myLabels$Expt, 
                                    "\n", myLabels$Entry),
                  denote = c("",""), replace_label = T,
                  type = "matrix", numrow = 10, numcol = 3)

myLabels_QRCodes.pdf


1D - Barcodes

custom_create_PDF(name = "myLabels_BarCodes", 
                  Labels = myLabels$Plot, 
                  alt_text = paste("Plot:", myLabels$Plot), 
                  denote = c("",""), replace_label = T,
                  type = "linear", numrow = 10, numcol = 3)

myLabels_BarCodes.pdf


Bonus - dblogr Stickers

custom_create_PDF(name = "myLabes_dblogr",
                  Labels = rep("derekmichaelwright.github.io/dblogr", 30),
                  alt_text = rep("www.dblogr.com/", 30),
                  denote = c("",""), replace_label = T,
                  type = "matrix", numrow = 10, numcol = 3)

myLabels_dblogr.pdf


© Derek Michael Wright